home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / POStack / background_3579.txt < prev    next >
Text File  |  1988-07-22  |  8KB  |  400 lines
  1. -- background: 3579 from stack: in
  2. -- bmap block id: 3645
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12. -- part 1 (field)
  13. -- low flags: 00
  14. -- high flags: 6000
  15. -- rect: left=121 top=34 right=57 bottom=368
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 2
  20. -- text size: 14
  21. -- style flags: 256
  22. -- line height: 18
  23. -- part name: End User
  24.  
  25.  
  26. -- part 2 (field)
  27. -- low flags: 00
  28. -- high flags: 6000
  29. -- rect: left=139 top=76 right=101 bottom=325
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 2
  34. -- text size: 14
  35. -- style flags: 256
  36. -- line height: 18
  37. -- part name: P.O. Number
  38.  
  39.  
  40. -- part 6 (field)
  41. -- low flags: 00
  42. -- high flags: 6000
  43. -- rect: left=139 top=105 right=130 bottom=325
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 2
  48. -- text size: 14
  49. -- style flags: 0
  50. -- line height: 18
  51. -- part name: Date Ordered
  52.  
  53.  
  54. -- part 8 (field)
  55. -- low flags: 00
  56. -- high flags: 6000
  57. -- rect: left=139 top=135 right=160 bottom=325
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 2
  62. -- text size: 14
  63. -- style flags: 0
  64. -- line height: 18
  65. -- part name: Status
  66.  
  67.  
  68. -- part 9 (field)
  69. -- low flags: 00
  70. -- high flags: 6000
  71. -- rect: left=139 top=195 right=220 bottom=461
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 2
  76. -- text size: 14
  77. -- style flags: 0
  78. -- line height: 18
  79. -- part name: Items
  80.  
  81.  
  82. -- part 10 (field)
  83. -- low flags: 00
  84. -- high flags: 6000
  85. -- rect: left=139 top=223 right=247 bottom=326
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 2
  90. -- text size: 14
  91. -- style flags: 256
  92. -- line height: 18
  93. -- part name: Vendor
  94.  
  95.  
  96. -- part 11 (field)
  97. -- low flags: 00
  98. -- high flags: 6000
  99. -- rect: left=140 top=276 right=300 bottom=327
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 2
  104. -- text size: 14
  105. -- style flags: 0
  106. -- line height: 18
  107. -- part name: Date Promised
  108.  
  109.  
  110. -- part 14 (button)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=232 top=305 right=330 bottom=259
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 1014 / 1014
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Prev
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   visual effect wipe right
  125.   go to previous card
  126.   get the number of this card
  127.   put it into bkgnd field "card Number"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 15 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=262 top=305 right=330 bottom=289
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 1013 / 1013
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Next
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   visual effect wipe left
  147.   go to next card
  148.   get the number of this card
  149.   put it into bkgnd field "card Number"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 17 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=466 top=32 right=61 bottom=498
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 21700 / 21700
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Home
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   visual effect iris open
  169.   go Home
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 18 (button)
  175. -- low flags: 00
  176. -- high flags: 0000
  177. -- rect: left=464 top=305 right=333 bottom=501
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 1012 / 1012
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Return
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   visual effect iris close
  189.   pop card
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 19 (button)
  195. -- low flags: 00
  196. -- high flags: 8003
  197. -- rect: left=140 top=165 right=184 bottom=217
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: Open
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   put "Open" into field status
  209.   get loc of bkgnd field "items"
  210.   click at it
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 20 (button)
  216. -- low flags: 00
  217. -- high flags: 8003
  218. -- rect: left=223 top=165 right=184 bottom=300
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Xmitted
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   put "Xmitted" into field status
  230.   get loc of bkgnd field "items"
  231.   click at it
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 21 (button)
  237. -- low flags: 00
  238. -- high flags: 8003
  239. -- rect: left=309 top=165 right=184 bottom=386
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Received
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   put "Received" into field status
  251.   get loc of bkgnd field "items"
  252.   click at it
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 23 (button)
  258. -- low flags: 00
  259. -- high flags: 8003
  260. -- rect: left=393 top=165 right=184 bottom=470
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Installed
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   put "Installed" into field status
  272.   get loc of bkgnd field "items"
  273.   click at it
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 24 (button)
  279. -- low flags: 00
  280. -- high flags: 8003
  281. -- rect: left=140 top=251 right=270 bottom=217
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Apple
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   put "Apple" into field Vendor
  293.   get loc of bkgnd field "date Promised"
  294.   click at it
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 25 (button)
  300. -- low flags: 00
  301. -- high flags: 8003
  302. -- rect: left=310 top=251 right=270 bottom=390
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: IBM
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   put "IBM" into field Vendor
  314.   get loc of bkgnd field "date Promised"
  315.   click at it
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 26 (button)
  321. -- low flags: 00
  322. -- high flags: 8003
  323. -- rect: left=399 top=251 right=270 bottom=476
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 1
  327. -- font id: 0
  328. -- text size: 12
  329. -- style flags: 0
  330. -- line height: 16
  331. -- part name: Other
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   put "Other" into field Vendor
  335.   get loc of bkgnd field "date Promised"
  336.   click at it
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 27 (button)
  342. -- low flags: 00
  343. -- high flags: 8003
  344. -- rect: left=225 top=251 right=270 bottom=302
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Bus. Land
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   put "BusinessLand" into field Vendor
  356.   get loc of bkgnd field "date Promised"
  357.   click at it
  358. end mouseUp
  359.  
  360.  
  361.  
  362. -- part 35 (field)
  363. -- low flags: 00
  364. -- high flags: 0000
  365. -- rect: left=417 top=43 right=59 bottom=444
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 1
  369. -- font id: 3
  370. -- text size: 10
  371. -- style flags: 0
  372. -- line height: 13
  373. -- part name: card number
  374. ----- HyperTalk script -----
  375.  
  376.  
  377.  
  378.  
  379. -- part 36 (button)
  380. -- low flags: 00
  381. -- high flags: 0000
  382. -- rect: left=375 top=84 right=118 bottom=459
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: About...
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   show message
  394.   type "PO_Stack... By... Gerard G. Boccuti..."
  395.   play harpsichord tempo 120 "a es eq es f# g# a b c#5q a4s"
  396.   wait 2 seconds
  397.   hide message box
  398. end mouseUp
  399.  
  400.